{-# OPTIONS -Wall #-}

-----------------------------------------------------------------------------
-- |
-- Module      :  DirectoryDiff.VersionNumber
-- Copyright   :  (c) Stephen Peter Tetley 2012
-- License     :  BSD3
--
-- Maintainer  :  stephen.tetley@gmail.com
-- Stability   :  experimental
-- Portability :  to be determined
--
-- Version number.
--
-----------------------------------------------------------------------------


module DirectoryDiff.VersionNumber
  (

    dir_diff_version
  , versionString

  ) where

import Numeric


-- | Version number.
--
-- > (0,2,0)
--
dir_diff_version :: (Int,Int,Int)
dir_diff_version = (0,2,0)


versionString :: String
versionString = 
    ($ []) $ showInt i . showChar '.' . showInt j . showChar '.' . showInt k
  where
    (i,j,k) = dir_diff_version
                